Fix cl-lib-struct-accessors test again.

* test/automated/cl-lib.el (cl-lib-struct-accessors): Fix test to
account for removal of `cl-struct-set-slot-value'. Also, move
the defstruct to top level.

diff --git a/test/automated/cl-lib.el b/test/automated/cl-lib.el
index 89bc3cea39260ad93952f00b057fc290880665df..48a4c5da2512ac3d94abb33fb069e11b741581bb 100644 (file)
--- a/test/automated/cl-lib.el
+++ b/test/automated/cl-lib.el
@@ -201,8 +201,8 @@
                     :b :a :a 42)
            '(42 :a))))
 
+(cl-defstruct mystruct (abc :readonly t) def)
 (ert-deftest cl-lib-struct-accessors ()
-  (cl-defstruct mystruct (abc :readonly t) def)
   (let ((x (make-mystruct :abc 1 :def 2)))
     (should (eql (cl-struct-slot-value 'mystruct 'abc x) 1))
     (should (eql (cl-struct-slot-value 'mystruct 'def x) 2))